home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 December / MACPOWER-1997-12.ISO.7z / MACPOWER-1997-12.ISO / MacPowerオリジナル / Edutainment World / チャンプジム for DEMO / DIR / shared.cst / 00003_Script_3 < prev    next >
Text File  |  1997-09-29  |  3KB  |  122 lines
  1. on initGLOBAL
  2.   global quitMODE
  3.   set quitMODE = "OFF"
  4.   
  5.   global preColorDepth
  6.   set preColorDepth = the colorDepth
  7.   set the ColorDepth to 8
  8.   
  9.   global User1,User2,User3,User4,User5
  10.   
  11.   set User1 = GetUserInfo(1)
  12.   set User2 = GetUserInfo(2)
  13.   set User3 = GetUserInfo(3)
  14.   set User4 = GetUserInfo(4)
  15.   set User5 = GetUserInfo(5)
  16.   
  17.   
  18.   global gCurIndex,gCurKeybuf
  19.   put empty into gCurIndex
  20.   put empty into gCurKeybuf
  21.   --  put "" into cast "InputE"
  22.   --  put "" into cast "InputJ" 
  23.   --  global gZenHan
  24.   --  set gZenHan = []
  25.   --  put field "ZENHAN" into buf
  26.   --  put the number of lines in buf into cnt
  27.   --  repeat with i=1 to cnt
  28.   --    add gZenHan,line i of buf
  29.   --  end repeat
  30.   
  31.   -------篋輳ﾉRﾅ[ﾉh
  32.   global gKAIGYO
  33.   if the MachineType = 256 then
  34.     set gKAIGYO = RETURN & numToChar(10)
  35.   else
  36.     set gKAIGYO = RETURN
  37.   end if
  38.   
  39.   
  40.   -----臚ﾉgﾉ蠻[ﾉjﾉìﾉOﾇど｡ﾇ©ﾇｩﾇど｡ﾇιｻﾇ｢ﾇｩ
  41.   global mittGO,punchGO,sandGO,roadGO,skipGO,shadowGO
  42.   set mittGO = "NO"
  43.   set punchGO = "NO"
  44.   set sandGO = "NO"
  45.   set roadGO = "NO"
  46.   set skipGO = "NO"
  47.   set shadowGO = "NO"
  48.   
  49.   -----臚鬩鯆ﾉgﾉ蠻[ﾉjﾉìﾉOﾇど｡ﾇ©ﾇｩﾇど｡ﾇιｻﾇ｢ﾇｩ
  50.   global TREmittGO,TREpunchGO,TREsandGO,TREroadGO,TREskipGO,TREshadowGO
  51.   set TREmittGO = "NO"
  52.   set TREpunchGO = "NO"
  53.   set TREsandGO = "NO"
  54.   set TREroadGO = "NO"
  55.   set TREskipGO = "NO"
  56.   set TREshadowGO = "NO"
  57.   
  58.   -----臚ﾉgﾉ蠻[ﾉjﾉìﾉOﾇﾃñろﾋ
  59.   global mittList,punchList,sandList,roadList,shadowList,skipList
  60.   set mittList = []
  61.   set punchList = []
  62.   set sandList = []
  63.   set roadList = []
  64.   set shadowList = []
  65.   set skipList = []
  66.   
  67.   -----臚ﾉgﾉ蠻[ﾉjﾉìﾉOﾇﾃêｨ齬
  68.   global REmittList,REpunchList,REsandList,REroadList,REshadowList,REskipList
  69.   set REmittList = []
  70.   set REpunchList = []
  71.   set REsandList = []
  72.   set REroadList = []
  73.   set REshadowList = []
  74.   set REskipList = []
  75.   
  76.   set REmittList = GetResult(1,"JPN",1)
  77.   set mittList = GetWords(1,"JPN",1)
  78.   set REpunchList = GetResult(1,"JPN",2)
  79.   set punchList = GetWords(1,"JPN",2)
  80.   set REsandList = GetResult(1,"JPN",3)
  81.   set sandList = GetWords(1,"JPN",3)
  82.   set REroadList = GetResult(1,"JPN",4)
  83.   set roadList = GetWords(1,"JPN",4)
  84.   set REskipList = GetResult(1,"JPN",5)
  85.   set skipList = GetWords(1,"JPN",5)
  86.   set REshadowList = GetResult(1,"JPN",6)
  87.   set shadowList = GetWords(1,"JPN",6)
  88.   
  89.   -----
  90.   global DAYS
  91.   set DAYS = 6
  92.   
  93.   -----íP袁ﾉJﾅ[ﾉhﾅ@êｨ齬ï¥ﾇｩﾇﾁó猊©ﾇｩó猊ιｻﾇ｢ﾇｩ
  94.   global REcard
  95.   set REcard = "OFF"
  96.   
  97.   -----íP袁ﾉJﾅ[ﾉhﾅ@ﾉtﾉBﾅ[ﾉ翹hìｸóﾕﾇｵﾇ©ﾇｩﾇｵﾇιｻﾇ｢ﾇｩ
  98.   global JPNcdGO,CHIcdGO,INDcdGO,SPNcdGO,AUScdGO,USAcdGO
  99.   
  100.   set JPNcdGO = [0,0,0,0,0,0]
  101.   set CHIcdGO = [0,0,0,0,0,0]
  102.   set INDcdGO = [0,0,0,0,0,0]
  103.   set SPNcdGO = [0,0,0,0,0,0]
  104.   set AUScdGO = [0,0,0,0,0,0]
  105.   set USAcdGO = [0,0,0,0,0,0]
  106.   
  107.   -----íP袁鑰ëﾋﾉpﾉ^ﾅ[ﾉì
  108.   global SETTEI
  109.   set SETTEI = [1,1]
  110.   
  111.   ----- ﾉQﾅ[ﾉﾄﾉﾇﾅ[ﾉhﾅ@ﾉQﾅ[ﾉﾄﾅA鬩鯆ﾉgﾉ蠻@game,stre
  112.   global gMODE
  113.   set gMODE = "game"
  114.   
  115.   ----- 鞆ë陀ﾄﾅ[ﾉrﾅ[óp
  116.   global condition,conditionGO
  117.   
  118.   set conditionGO = "NO"
  119.   global REgameList
  120.   set REgameList = [1,1,0]
  121.   
  122. end